FORTRAN-86 
POCKET REFERENCE 


Order Number: 121571-001 
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STATEMENT ORDER 


PROGRAM. FUNCTION. SUBROUTINE 
> OR BLOCK DATA STATEMENTS 
PARAMETER fis | 


COMMENT STATEMENTS. 
OTHER 
LINES SPECIFICATION 

STATEMENTS. 


FORMAT 
STATEMENTS 


STATEMENT. 
FUNCTION 
STATEMENTS 


DATA 
STATEMENTS. 
EXECUTABLE 
STATEMENTS, 
END STATEMENT 


FORTRAN STATEMENTS 


ASSIGN Statement 


Syntax ASSIGN st/ TO name 
Function: Assign a statement label sf/ to an integer variable name 
Category: Executable 


Assignment Statement 


Syntax name = exp 

Function Assign the value of an expression exp to a variable name 
Type Arithmetic, Logical, Character 

Category: Executable 

BACKSPACE Statement 

Syntax: BACKSPACE unit 


BACKSPACE arg-list 


Function: Position file connected to unit before preceding record where unit is 
the unit specifier and arg-list is 


{UNIT=|unit unit specifier 
IOSTAT=stname 1/0 status specifier 
ERR=stl error specifier 


BACKSPACE is for sequential files only 


Category: Executable 


BLOCK DATA Statement 


Syntax BLOCK DATA|name} 
Function, Identify and optionally name a BLOCK DATA subprogram. 
Category: Nonexecutable 


CALL Statement 
Syntax: CALL namej({arg|,arg]...J)] 
Function: — Call the subroutine, aame with actual argument(s) arg. 


Category: Executable 


CHARACTER Statement 

Syntax: CHARACTER|*/en|name{*/en}| ,name[*fen)}... 
Function: Specify name and /en for character type variable or array 
Category: — Nonexecutable, specification, type 

CLOSE Statement 

Syntax: CLOSE (close-list) 


Function: Close the file described by c/ose-list, where close-list is 


[UNI T=Junit unit specifier 
IOSTAT=stname 1/O status specifier 
ERR=stl error specifier 

STATUS =stat file disposition specifier 


Category: Executable 


Comment Line 


Syntax: The character *C’ or asterisk (*) in position 1; any other characters in 
positions 2-72 


Function Program documentation 


Category: Nonexecutable 


COMMON Siatement 
Syntax: COMMON[/name)/ |niist(|, |/name/niist} 


Function: Name and define the contents of COMMON block(s), name. If name 
is not specified, a blank COMMON is defined 


Category: Nonexecutable, specification 


CONTINUE Statement 

Syntax: CONTINUE 

Function: No effect unless this is the terminal statement of a DO loop; then 
action depends on the DO variable. 

DATA Statement 

Syntax: DATA olist/clist... 

Function: Assign values in clist to the items in alist. 


Category: Nonexecutable 
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DIMENSION Statement 
Syntax: DIMENSION array(d)|,array(d)}.. 
Function: | Namearray(s) and define dimension(s) d. 


Category: | Nonexecutable, specification 


DO Statement 
Syntax: 00 sti[, Jvar=e7, e2|, 3] 


Function: Define the beginning of DO loop and set up loop counters where 


stl label of last (executable) statement in DO loop 
var DO loop index variable 

et initial loop index value 

e2 loop termination value 

e3 loop increment/decrement value 


Category: Executable 


DOUBLE PRECISION Statement 


Syntax: DOUBLE PRECISION name|,name]... 

Function: Specify name(s) for a double precision type variable or array. 
Category: Nonexecutable, specification, type 

ELSE Statement 

Syntax: ELSE 


Function: Provides alternate execution path from IF or ELSE IF 


Category Executable, block IF 


ELSE IF Statement 
Syntax: ELSE 1F (exp) THEN 
Function: — Continue execution if expression exp is TRUE 


Category: Executable, Block IF 


END Statement 
Syntax: END 


Function: Terminate main program, return from subprogram; mark end of 
program unit. 


Category: Executable 


END IF Statement 
Syntax END IF t 


Function: — Mark end of IF block; continue execution. 


Category: Executable, block IF 


ENDFILE Statement 


Syntax: 


Function: 


ENDFILE unit 
ENDFILE (arg-list) 


Write end-of-fiie record on file connected to unit where unit is the unit 
specifier and arg-list is 


{UNIT=Junit unit specifier 
IOSTAT=stname 1/O status specifier 
ERR=st/ error specifier 


ENDFILE is for sequential files only. 


Category: Executable 
EQUIVALENCE Statement 
Syntax: EQUIVALENCE (niist)[, (nlist)].. 
Function: Allow entries in alist to share the same storage area. 
Category: Nonexecutable, specification 
EXTERNAL Statement 
Syntax: EXTERNAL name|,name|. . 
Function: Allows the name of an external/dummy procedure name to be used as 
an actual argument. 
Category: Nonexecutable, specification 
FORMAT Statement 
Syntax stl FORMAT ({flist}) 
Function Specifies the format of formatted 1/O data where fist includes the 
following repeatable and nonrepeatable edit descriptors. 
Repeatable Nonrepeatable 
Iw Integer “string” literal 
Fu d real nlstring Hollerith 
Ew.djEe} real nX record position 
Dw.d real / record termination 
Gw.d[Ee} real kP scale factor 
Lw logical BN blank 
A{w] alphanumeric BZ blank 
Bw binary 5 allernate-record 
Zw hexadecimal termination 
Category” Nonexecutable 
FUNCTION Statement 
Syntax: [type]FUNCTION name ({arg|,arg}. .}) 
Function: Name the FUNCTION subprogram and define its type and dummy 
argument(s) 
Category: Nonexecutable 
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GO TO Statements 


Syntax: GO TO si 
GO TO (sti{,sti]...)exp 
GO TO name|(sti[, sti] ..)} 


Function: — Transfer control to statement labelled st/ or ASSIGNED to variable 
name. The first branches unconditionally, the second branches based 
on the value of the integer expression exp; the third branches uncondi- 
tionally, but statement label corresponding to name must be included 
in list. 


Category: Executable 


IF Statements 


Syntax IF (exp) s1,s2,s3 
IF (exp) stmt 
IF (exp) THEN 


Function: Transfer control to a specified statement or perform specified 
action(s) based on the value of the expression exp. In the first format, 
exp is an arithmetic expression and sf, s2, and s3 are statement 
labels; control passes to- 


sl if exp<0. 
s2if exp=0 
s3 ifexp>0. 


In the second format, the statement stmt is executed if the logical 
expression is TRUE- Third format introduces IF block, statements 
following IF-THEN are executed if logical expression is TRUE. 


Category: Executable 

IMPLICIT Statement 

Syntax: IMPLICIT neype (et{let]...)... 

Function: Define implicit typing for variable names whose first letter is /et or in 


the range /et-/et. 


Category: Nonexecutable, specification 


INTEGER Statement 
Syntax, INTEGER(*/en|name| *ien|[name|*ien)]. 
Function, Define name to be of type integer with length fen, 


Category: Nonexecutable, specification, type 


INTRINSIC Statement 
Syntax: INTRINSIC name|,name}.. 
Function Allow intrinsic function(s) to be used as actual argument(s). 


Category: Nonexecutable, specification 


LOGICAL Statement 
Syntax: LOGICAL{*/en}name|*fen]| ,name|*/en]]... 
Function: Define name to be of type logical with length /en 


Category: Nonexecutable, specification, type 


OPEN Statement 
Syntax: OPEN (open-list) 


Function: Open the specified file with open-/ist consisting of the following: 


(UNI T=]unit unit specifier 
IOSTAT=stname 1/O status specifier 
ERR=st/ error specifier 
FILE=fname filename specifier 
STATUS=stat file status specifier 
ACCESS=acc access method specifier 
FORM=/mat formatting specifier 
RECL=recien record length specifier 
BLANK=bink blank specifier 
CARRIAGE=car carriage control specifier 

Category: Executable 

PAUSE Statement 

Syntax: PAUSE[msg] 

Function: Halt program execution; resume under control of external signal; msg 
is 1-5 digits or a character constant. 

Category. Executable 

PARAMETER Statement 

Syntax PARAMETER (name=exp. .) 

Function. Assigns a name to a constant expression exp 


Category Nonexecutable, specification 


PRINT Statement 
Syntax: PRINT f[, outlist] 
Function, Output items in outlist to preconnected unit in format specified by f 


Category. Executable 


PROGRAM Statement 
Syntax: PROGRAM name 


. 
Function: Optionally name main-program unit. If missing, the compiler will 
assign @MAIN as the program name. 


Category: Nonexecutable 


READ Statement 


Syntax: READ (ctl-list) [inlist] 
READ |, inlist] 


Function: Input items in infist as directed by specified controls in ct/-list 


[UNIT=]unit unit specifier 

(FMT=]F format specifier 
REC=recno record number specifier 
LOSTAT=stname 1/O status specifier 
ERR=st! error specifier 

END=st/ end-of-file specifier 


Second format is for preconnected units; fis the format specifier 


Category: Executable 


REAL Statement 
Syntax: REAL[*/en|name{*ien]| ,name[*/en)}.. 
Function: Define name to be of type real with length /en, 


Category. Nonexecutable, specification, type 


RETURN Statement 
Syntax: RETURN 
Function: Return from FUNCTION or SUBROUTINE subprogram. 


Category: — Executable 


REWIND Statement 
Syntax: REWIND unit 
REWIND Carg-list) 
Function Reposition file connected to unit at its initial point with arg-list 
including: 
(UNIT=Junit unit specifier 
1O0STAT=stname 1/O status specifier 
ERR=si/ error specifier 


REWIND is for sequential files only. 


Category: Executable 


SAVE Statement 
Syntax: SAVE/name/[,/name/]. . 
Function: Save data in common block name on return from subprogram, 


Category:  Nonexecutable, specification 


Statement Function Statement 
Syntax: name (arg[,arg)...]) =exp 


Function: Define function name 


Category: Nonexecutable 


STOP Statement 


Syntax: STOP|msg} 

Function: Terminate program execution, with optional message, msg. 

Category* Executable 

SUBROUTINE Statement 

Syntax: SUBROUTINE name|({arg|,arg)...|)} 

Function: Define SUBROUTINE subprogram name with dummy argument(s) 
arg 

Category” Nonexecutable 


TEMPREAL Statement 


Syntax: TEMPREAL name|,name]... 

Function: Define name to be of type tempreal. 

Category* Nonexecutable, specification, type 

WRITE Statement 

Syntax: WRITE (ctl-list) [outlist) 

Function. Output items in outlist as directed by controls in cti-list including 
[UNI T=]unit unil specifier 
(FRT=|f format specifier 
REC=recno record number specifier 
IO0STAT=stname I/O status spi 
ERR=stl error specifier 


Intrinsic Functions 


Type-Conversion Functions 


Generic 
Name 


Convertio INTEGER INTEGER 


INTEGER INTEGER"! INTEGER 

INTEGER" 2 INTEGER 

INTEGER*4 INTEGER 

INT REAL“4 INTEGER 

tFIX REAL* INTEGER 

REAL*S INTEGER 

IDINT DOUBLE INTEGER 
PRECISION 


EMPREAL INTEGER 


Conver to INTEGER INTEGER) 

INTEGER) INTEGER" INTEGER") 
INTEGER*2 INTEGER") 
INTEGER*4 INTEGER’ 
REAL*S INTEGER! 
REAL*S INTEGER") 
DOUBLE INTEGER’) 
PRECISION 
TEMPREAL INTEGER! 


e-Conversion Functions (Contd.) 


Type 


as 


Generic 
Name 


Specific 
Name 


Category Function 


Type Convertto INTEGER INTEGER*2 

Conversion | INTEGER'2 INTEGER"3 INTEGER"? 
INTEGER'2 INTEGER’2 
INTEGER*4 INTEGER"2 
REAL*s INTEGER*2 
REALS INTEGER*2 
DOUBLE INTEGER"? 
PRECISION 


TEMPREAL 
Type Convert to INTEGER 


INTEGER*2 
INTEGER’ 


Conversion INTEGER*4 INTEGER") INTEGER 
i INTEGER"2 INTEGER*4 
INTEGER" INTEGER" 4 
REALS . INTEGER*S 
REAL“8 INTEGER*G 
OOUBLE INTEGER*4 


PRECISION 
TEMPREAL 


NTEGER 


INTEGER"4 


Type Convertto 


Conversion REAL INTEGER 
INTEGER"1 
INTEGER") 
INTEGER'2 
FLOAT INTEGER*2 
INTEGER*S 
FLOAT INTEGER™4 
REAL“4 
REAL*S 
SNGL DOUBLE 
PRECISION 
TEMPREAL REAL‘S 
OBLE Type Convertto INTEGER OOUBLE 
Conversion DOUBLE PRECISION 
PRECISION INTEGER"? DOUBLE 
PRECISION 
INTEGER*2 DOUBLE 
PRECISION 
INTEGER*S DOUBLE 
PRECISION 
REAL*4 DOUBLE 
PRECISION 
REAL‘S DOUBLE 
PRECISION 
DOUBLE DOUBLE 


PRECISION PRECISION 
TEMPREAL DOUBLE 
PRECISION 


TEMPREAL 


Type Convertto INTEGER 


Conversion | TEMPREAL INTEGER'1 TEMPREAL 
INTEGER"? TEMPREAL 
INTEGER’4 TEMPREAL 
REAL*S TEMPREAL 
REAL"E TEMPREAL 
DOUBLE TEMPREAL 
PRECISION 


TEMPREAL TEMPREAL 


Convert CHAR 
to INTEGER 


Type 
Conversion 


CHARACTER INTEGER 


Type Convert INTEGER CHARACTER 
Conversion INTEGER to INTEGER™1 CHARACTER 
: CHARACTER INTEGER? CHARACTER 


INTEGER*S CHARACTER 


Truncation and Rounding Functions 


Truncation | Truncate REAL'a REAL‘4 
OINT Argument REAL*S REAL‘3 
DINT DOUBLE DOUBLE 
PRECISION | PRECISION 
TEMPREAL | TEMPREAL 
| ANINT Rounding Round to REAL*4 REAL*A 
| ONINT Nearest REAL'S REALS 
| DNINT Whole Number DOUBLE DOUBLE 
| PRECISION | PRECISION 
TEMPREAL TEMPREAL 
| NINT Rounding Round to REALS INTEGER 
IDNINT integer REALS INTEGER 
JONINT DOUBLE INTEGER 
PRECISION 
TEMPREAL | INTEGER 
RINT Rounding Round to REAL‘4 REAL"4 
ORINT Even Whole REAL'S REAL‘*S 
| DRINT Number DOUBLE OOUBLE 
| PRECISION | PRECISION 
TEMPREAL TEMPREAL 
IRINT Rounding Round to REAL‘ INTEGER 
IDRINT Even REALS INTEGER 
IDRINT Integer DOUBLE INTEGER 
PRECISION 
TEMPREAL | INTEGER 


Remainder Functions 


Generic Specific 


Remainder arg1-AINT INTEGER INTEGER 
(argi/arg2) INTEGER*1 INTEGER*1 
*arg2 INTEGER™2 INTEGER*2 
INTEGER"4 INTEGER*4 
REAL‘*S REAL“4 
REAL"8 REAL*S 
DOUBLE OOUBLE 
PRECISION PRECISION 
TEMPREAL TEMPREAL 


Remainder arg}-RINT INTEGER INTEGER 
(argi/arg2) | iNTEGER" INTEGER"1 
*arg2 INTEGER*2 INTEGER*2 
INTEGER"4 INTEGER*4 
REAL*4 REAL*4 
REALS REALS 
DOUBLE OOUBLE 
PRECISION PRECISION 
TEMPREAL TEMPREAL 


Absolute Value, Sign Transfer, Positive Difference, and 
Double Precision Product Functions 


Generic Spocitic Category Function 
Absolute Return INTEGER INTEGER 
Value Absolute INTEGER") INTEGER") 
Value INTEGEA"2 INTEGER"2 
INTEGERS INTEGER*4 
REAL*4 REALS 
REALS REALS 
OOUBLE DOUBLE 
PRECISION | PRECISION 
TEMPREAL TEMPREAL 


SIGN Sign Transfer INTEGER INTEGER 
Transfer Sign ot INTEGER"1 INTEGER"1 
arg2toarg! INTEGER*2 INTEGER*2 
Signly.x)= INTEGER’S INTEGEA*4 


lyl.x20 REAL*4 REAL*4 

~ly1,x60 REAL“6 REALS 
DOUBLE DOUBLE 
PRECISION PRECISION 
TEMPREAL TEMPREAL 


1OIM Positive Return INTEGER INTEGER 
Dilference | argt-arg2 INTEGER") | INTEGER"? 
ifargi>arg2 | INTEGER*2 | INTEGER‘2 
else 0 INTEGER"4 | INTEGER*4 
REAL*S REAL*4 
REAL‘S REAL‘B 
DOUBLE DOUBLE 
PRECISION PRECISION 
TEMPREAL | TEMPREAL 


Double Multiply DOUBLE 
Precision arg! by arg2 PRECISION 
Product 


Choosing the Largest or Smallest Value Functions 


Generic | Specific 


Name Name Category Function 


Arguments Results 


Largest Choose INTEGER INTEGER 
Value Largest INTEGER*1 INTEGER*1 
Value INTEGER*2 INTEGER*2 
in List INTEGER™4 INTEGER*4 
AMAX1 REAL*4 REAL‘A 
REALS REAL*S 
OMAX1 DOUBLE DOUBLE 
PRECISION PRECISION 
TEMPREAL TEMPREAL 


AMAXO Largest Choose INTEGER REAL*4 
Value Largest INTEGER"! REAL*4 
Value INTEGER"? REAL*4 
in List INTEGERS REAL*4 
REAL4 INTEGER 


MIN MINO Smaliest Choose INTEGER INTEGER 
Value Smallest INTEGER") INTEGER") 
Value INTEGER*2 INTEGER"2 
in List INTEGER*4 INTEGER" 
AMINI REALS REAL*S 
REAL"S REALS 
DMINI DOUBLE DOUBLE 
PRECISION PRECISION 
TEMPREAL TEMPREAL 


AMINO Smaliest Choose INTEGER REAL"4 
Value Smailest INTEGER") REAL*A 
Value. INTEGER*2 REAL*4 
in List INTEGER"4 REAL 
REAL*4 INTEGER 


Length and Index Functions 


Category Function 


Specitic 
Namo 


Arguments 


Result 


Determine 
the Length 
of Character 
Entity 


Length 


Return 
Location of 
Substring 
arg2in 
String arg! 


INDEX Index 
of 
Substnng 


Arithmetic Functions 


Category Function 


Arithmetic Return 
Square 


Root 


CHARACTER 


CHARACTER 


REAL*4 
REAL*S 
DOUBLE 
PRECISION 
TEMPREAL 


Returne 
Raised to 
Power of 
Argument 


Arithmetic 


Arithmetic | Return 
Natural 
Logarithm 


ALOG10 
DLOG10 
DLOG10 


Arithmetic Return 
Common 


Logarithm 


Trigonometric Functions 


Generic 
Name 


Specilic 


Nana Function 


Category 


Trigonometnic 


Trigonometnc 


Return 
Tangent 


Trigonometric 


Return 
Arcsine 


Tagonometnc 
DASIN 
DASIN 


REAL‘S 
REALS 
DOUBLE 
PRECISION 
TEMPREAL 


REAL*4 
REALS 
DOUBLE 

PRECISION 
TEMPREAL 


REAL*4 
REALS 
DOUBLE 
PRECISION 
TEMPREAL 


Arguments 


REAL*S 
REALE 
OOUBLE 
PRECISION 
TEMPREAL 


PRECISION 
TEMPREAL 


REALS 
DOUBLE 
PRECISION 
TEMPREAL 


REAL" 
REALS 
DOUBLE 
PRECISION 
TEMPREAL 


INTEGER 


INTEGER 


Results 


REAL‘4 
REAL'S 
DOUBLE 
PRECISION 
TEMPREAL 


REAL*4 
REALS 
DOUBLE 
PRECISION 
TEMPREAL 


REAL‘4 
REAL*S 
DOUBLE 
PRECISION 


REAL‘4 
REAL*S 
DOUBLE 
PRECISION 
TEMPREAL 


Results 


REAL “4 
REALS. 
DOUBLE 
PRECISION 
TEMPREAL 


PRECISION 
TEMPREAL 


PRECISION 
TEMPREAL 


PRECISION 
TEMPREAL 


TEMPREAL 


Trigonometric Functions (Cont'd.) 


—— 


Generic Specilic 


Trigonometric | Return REAL‘ REAL “4 
Arccosine REAL‘S REALE 
DOUBLE DOUBLE 
PRECISION PRECISION 
TEMPREAL TEMPREAL 


Trgonometnc Return REAL*4 REALS 
DATAN Arctangent | REAL“6 REALS 
DATAN with one OOUBLE DOUBLE 
Argument PRECISION PRECISION 
TEMPREAL TEMPREAL 


Trigonometric Return REALS REAL*4 
DATAN2 Arctangent | REALS REAL‘S 
DATAN2 with two OOUBLE DOUBLE 
Arguments | PRECISION | PRECISION 
TEMPREAL TEMPREAL 


Hyperbolic Functions 


Type 
Generic Specific 
Name Name walegory) Function Arguments Results 
SINH Hyperbolic Return REAL“4 REAL“4 
DSINK Hyperbolic REAL*S REALS 
OSINH Sire DOUBLE DOUBLE 
PRECISION PRECISION 
TEMPREAL TEMPREAL 
COSH Hyperbolic | Return REAL*S REALS 
DCOSH Hyperbolic REAL"? REAL*3 
DCOSH Cosine DOUBLE DOUBLE 
PRECISION, PRECISION 
TEMPREAL TEMPREAL 
TANK Hyperbolic Return REAL"4 REAL*4 
OTANH Hyperboic REALS REAL*S 
DTANH Tangent DOUBLE DOUBLE 
PRECISION PRECISION 
TEMPREAL TEMPREAL 


Lexical Relationship Functions 


CHARACTER LOGICAL 
CHARACTER LOGICAL 


Lexically 
Greater 
or Equal 


Lexically 
Lessor 
Equal 


Lexical 
Relationship 


Lexical 
Relationship 


Lexically 
Less 


8087 Control Intrinsics 


Store 87 Status Word PUSHF 
Cui 
ENSTSW @ wd 
FNCLEX 


FWAIT 


Load 87 Contro! Word 


LOCW87 
STCWB7iwd) 


SAV67(s1) Save 87 Stato 


Store 87 Control Word 


FNSAVE @ st 
FWAIT 
POPF 


RST87 Restore 87 State FRSTOR @ st 
FWAIT 


Where: wd = any INTEGER®2 variable 
st = any array of atleast 94 bytes 


Intrinsic Subroutines 
CALL INPUT (port, var) 
CALL OUTPUT (port, var) 


CALL INW (port, var) 
CALL OUTW (port, var) 


Statement Functions 


name (arg, larg, ...||) =exp 


Compiler Controls 


Types of Controls 


Primary General 
patent Controls 


Listing Content PRINT LIST 


SYMBOLS CODE 
XREF 

Listing Format TITLE SUBTITLE 
PAGEWIOTH EJECT 
PAGELENGTH 

input Format 0066/0077 INCLUDE 
STORAGE FREEFORM 


Object File OBJECT 
ERRORLIMIT 


DEBUG 
IGNORE 


INTERRUPT 
REENTRANT 


Contro} Status 


Controls and Their Abbreviations 


Control 


CODE 
OEBUG 

+ 0066/0077 

* EJECT 
ERRORLIMIT 
FREEFORM 

+ IGNORE 

+ INCLUDE 

+ INTERRUPT 
ust 
OBJECT 

+ PAGELENGTH 

+ PAGEWIDTH. 
PRINT 

+ REENTRANT 

* STORAGE 

+ SUBTITLE 
SYMBOLS 

~ TITLE 
XREF 


Compiler Invocation 


{: Fo: }RUN[: Fa: ]FORT86: Fa: |source[contros| 


Run-Time Support Libraries 


* FS86RNO.LIB, F86RNI-LIB, FS6GRN2.LIB, F86RN3.LIB, F86RN4.LIB, and 
RTNULL.LIB—run-time support libraries. 

* CEL LIB—floaung-point intrinsic function library 

* 87ERH.LIB—floating-point error handler. 

*  8087.L1B—8087 Numeric Data Processor interface library 

* E8087, and E8087.LIB—8087 Emulator and interface library 


*  S7NULL LIB—support library that resolves references if no 8087 processor is 
used, 


LINK86 Invocation 


RUN[:Fa:|LINK86 snput-list{TO object-file|[controts| 


LOC86 Invocation 


RUN[: Fa: |LOC86 input-file[TO object-file||controis) * 
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HEX-ASCII Table 


ASC FORTRAN-86 ASC 
CHARACTER CHARACTER CHARACTER 
no a 

A 


NUL 00 


FORTRAN-86 
CHARACTER 
40 no 


> 
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